-- background: 18347 from stack: in.11_89
-- bmap block id: 18900
-- flags: 4000
-- background id: 0
-- name: ResAudit Bg


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=299 right=320 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 4465 / 4465
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Index
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go cd "LImacSTACK index"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=403 top=300 right=320 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 25234 / 25234
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Prev
----- HyperTalk script -----
on mouseDown
  visual scroll right
  go to prev cd of this bg
  put the ticks into tickHolder
  repeat until (the mouse is up)
    if (the ticks - tickHolder) > 30
    then
    go to prev cd of this bg
    put the ticks into tickHolder
  end if
end repeat
end mouseDown



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=300 right=320 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 2749 / 2749
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Next
----- HyperTalk script -----
on mouseDown
  visual  scroll left
  go to next cd of this bg
  put the ticks into tickHolder
  repeat until (the mouse is up)
    if (the ticks - tickHolder) > 30
    then
    go to next cd of this bg
    put the ticks into tickHolder
  end if
end repeat
end mouseDown



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=445 top=298 right=320 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 6721 / 6721
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual iris close to grey
  visual iris open
  pop cd
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=25 top=231 right=257 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Resource Lister
----- HyperTalk script -----

--This button uses the XFCN resAudit
--This button uses the XFCN FileName
on mouseUp
  set scroll of fld "ResList" to 0
  put "List Resources of which stack? (Cancel = this stack)"
  get fileName("STAK")
  if it is empty then
    go this cd
    set cursor to 4
    put the short name of this stack into fld "WhichStack"
    put resAudit() into field "ResList"
  else
    go this cd
    set cursor to 4
    put it into resStack
    put the short name of resStack into fld "WhichStack"
    put resAudit(resStack) into field "ResList"
  end if
  hide msg
end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=181 top=38 right=64 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WhichStack


-- part 8 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=182 top=71 right=289 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ResList